home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00259.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  671 b   |  26 lines
  1. on mouseUp
  2.   global newday, firstdayNo, numDaysInMonth, newMonth, theDate
  3.   if the doubleClick then
  4.     exit
  5.   end if
  6.   cursor(4)
  7.   set x to the clickOn - 8 - firstdayNo + 1
  8.   if (x > 0) and (x <= numDaysInMonth) then
  9.     set oldBox to newday
  10.     set newday to x
  11.     setDelimiter("/")
  12.     if (oldBox > 0) and (oldBox < 38) then
  13.       set the ink of sprite (oldBox + 8 + firstdayNo - 1) to 36
  14.     end if
  15.     if (item 2 of theDate < newday) and (newMonth = value(item 1 of theDate)) then
  16.       cursor(0)
  17.       alert("Cannot chart on future days.")
  18.     else
  19.       set the ink of sprite the clickOn to 2
  20.     end if
  21.     setDelimiter()
  22.   end if
  23.   cursor(0)
  24.   updateStage()
  25. end
  26.